(ShopList)
@SystemMessage #VANC #VANP #SlaveName the shop list is being printed..
@SystemMessage #VANC #VANP When you're ready, input the purchase code
@SystemMessage #VANC #VANP Input the purchase code + 'help' for information about the item like this:
@SystemMessage #VANC #VANP a7help
@SystemMessage #VANC #VANP Input --'help'-- if you wish to have the shop list reprinted
@SystemMessage #VANC #VANP Input --'exit'-- if you want to leave @RapidCodeOn¨
@SystemMessage #VANC #VANP You have @ShowVar[GNMGold] gold 
(Print)
@NullResponse @RapidTextOn @RapidCodeOn
@SystemMessage --a1-- Treasure chest --- 100 gold
@SystemMessage --b1-- Pay Tribute --- 500 gold
@SystemMessage --b2-- Pay Tribute --- 1000 gold
@SystemMessage --b3-- Moodbooster --- 1000 gold
@SystemMessage --b4-- Attonement --- 2 gold / PPoint
@Variable[#DateDifference(LockOut1, Days)]>[Lock1Input] @SystemMessage --b5-- Unlock Denial --- 2000 gold
@NotFlag(ChastityUpdate3) @SystemMessage --c1-- Chastity Pack 1-3 --- 500 gold / each
@NotFlag(HumiliationUpdate3) @SystemMessage --c2-- Humiliation Pack 1-3 --- 500 gold / each
@NotFlag(PainUpdate3) @SystemMessage --c3-- Pain Pack 1-3 --- 500 gold / each
@NotFlag(SlaveUpdate3) @SystemMessage --c4-- Slave Pack 1-3 --- 500 gold / each
@NotFlag(TeaseUpdate4) @SystemMessage --c5-- Tease Pack 1-4 --- 500 gold / each
@Variable[#DateDifference(LotteryTicketTimer, Days)]<[LotteryTicketCount] @SystemMessage --d1-- Lottery Ticket --- 50 gold / each
@NotFlag(ChorePack4) @SystemMessage --e1-- Chore Pack 1-4 --- 500 gold / each
@SystemMessage --f1-- Chastity game --- 750 gold /each
@NotFlag(BoughtSpankingImplement5) @SystemMessage --g1-- Spanking Implement 4-5 --- 500 gold / each
@Variable[#DateDifference(SpankzChoirSubscribtion, Days)]>[30] @SystemMessage --g2-- SpankzChoir Subscribtion --- 250 gold / 30 days
@NotFlag(Glitter3Bought) --h1-- @SystemMessage Glitter for Modules 1-3 --- 1500 gold
@NullResponse @RapidTextOff @RapidCodeOff
(EnterCode)
@SystemMessage #VANC #VANP Enter code __ @InputVar[PCode]
@NullResponse @RapidCodeOn
@Variable[PCode]==[a1] @NullResponse @If[GNMGold]<[100]Then(Poor) @Goto(a1)
@Variable[PCode]==[a1help] @NullResponse @Goto(a1h)
@Variable[PCode]==[b1] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(b1)
@Variable[PCode]==[b1help] @NullResponse @Goto(b1h)
@Variable[PCode]==[b2] @NullResponse @If[GNMGold]<[1000]Then(Poor) @Goto(b2)
@Variable[PCode]==[b2help] @NullResponse @Goto(b2h)
@Variable[PCode]==[b3] @NullResponse @If[GNMGold]<[1000]Then(Poor) @Goto(b3)
@Variable[PCode]==[b3help] @NullResponse @Goto(b3h)
@Variable[PCode]==[b4] @NullResponse @If[GNMGold]<[100]Then(Poor) @Goto(b4)
@Variable[PCode]==[b4help] @NullResponse @Goto(b4h)
@Variable[PCode]==[b5] @NullResponse @If[GNMGold]<[2000]Then(Poor) @Goto(b5)
@Variable[PCode]==[b5help] @NullResponse @Goto(b5h)
@Variable[PCode]==[c1] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(c1)
@Variable[PCode]==[c1help] @NullResponse @Goto(c1h)
@Variable[PCode]==[c2] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(c2)
@Variable[PCode]==[c2help] @NullResponse @Goto(c2h)
@Variable[PCode]==[c3] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(c3)
@Variable[PCode]==[c3help] @NullResponse @Goto(c3h)
@Variable[PCode]==[c4] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(c4)
@Variable[PCode]==[c4help] @NullResponse @Goto(c4h)
@Variable[PCode]==[c5] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(c5)
@Variable[PCode]==[c5help] @NullResponse @Goto(c5h)
@Variable[PCode]==[d1] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(d1)
@Variable[PCode]==[d1help] @NullResponse @Goto(d1h)
@Variable[PCode]==[e1] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(e1)
@Variable[PCode]==[e1help] @NullResponse @Goto(e1h)
@Variable[PCode]==[f1] @NullResponse @If[GNMGold]<[750]Then(Poor) @Goto(f1)
@Variable[PCode]==[f1help] @NullResponse @Goto(f1h)
@Variable[PCode]==[g1] @NullResponse @If[GNMGold]<[500]Then(Poor) @Goto(g1)
@Variable[PCode]==[g1help] @NullResponse @Goto(g1h)
@Variable[PCode]==[g2] @NullResponse @If[GNMGold]<[200]Then(Poor) @Goto(g2)
@Variable[PCode]==[g2help] @NullResponse @Goto(g2h)
@Variable[PCode]==[h1] @NullResponse @If[GNMGold]<[200]Then(Poor) @Goto(h1)
@Variable[PCode]==[h1help] @NullResponse @Goto(h1h)
@Variable[PCode]=[exit] @NullResponse  @Goto(End)
@Variable[PCode]=[help] @NullResponse @Goto(Print)
@SystemMessage #VANC #VANP Your code was not recognized
@SystemMessage #VANC #VANP Try again @Goto(EnterCode)
(Poor)
@SystemMessage #VANC #VANP You dont have the necessary gold to make the purchase @Goto(EnterCode)
(a1) //chest
@SystemMessage #VANC #VANP Chest's are currently unavailable for purchase @Goto(EnterCode)
@NullResponse @CallReturn(CR\BackgroundMode\Shop\1-TreasureChest.txt)
@NullResponse @Goto(Print)
(a1h) //chest
@SystemMessage #VANC #VANP Treasure chests are divided into four different types
@SystemMessage #VANC #VANP Common, rare, epic and legendary
@SystemMessage #VANC #VANP Each time you but a chest it will be one of these four
@SystemMessage #VANC #VANP Treasure chests can contain a very large variety of items
@SystemMessage #VANC #VANP All for you to discover @Goto(EnterCode)
(b1) //tribute
@SystemMessage #VANC #VANP Paying tribute.. @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse #MeritChangePHigh
@NullResponse #MeritChangePHigh
@SystemMessage #VANC #VANP Payment succesfull @Goto(EnterCode)
(b1h) //tribute
@SystemMessage #VANC #VANP If you wish to boost your score with your domme
@SystemMessage #VANC #VANP Try paying her a tribute
@SystemMessage #VANC #VANP Willingly donating gold to her sends a powerfull message about wanting to serve @Goto(EnterCode)
(b2) //tribute2
@SystemMessage #VANC #VANP Paying tribute.. @ChangeVar[GNMGold]=[GNMGold]-[1000]
@NullResponse #MeritChangePHigh
@NullResponse #MeritChangePHigh
@NullResponse #MeritChangePHigh
@NullResponse #MeritChangePHigh
@SystemMessage #VANC #VANP Payment succesfull @Goto(EnterCode)
(b2h) //tribute2
@SystemMessage #VANC #VANP If you wish to boost your score with your domme
@SystemMessage #VANC #VANP Try paying her a tribute
@SystemMessage #VANC #VANP Willingly donating gold to her sends a powerfull message about wanting to serve @Goto(EnterCode)
(b3) //Moodboster
@SystemMessage #VANC #VANP Paying moodbooster @ChangeVar[GNMGold]=[GNMGold]-[1000]
@SystemMessage #VANC #VANP Done! @SetDate(MoodBooster, 0 Days) @SetFlag(MoodBooster)
@SystemMessage #VANC #VANP The moodbooster now lasts a week @Goto(EnterCode)
(b3h) //Moodboster
@SystemMessage #VANC #VANP Moodbooster is a 7 day system
@SystemMessage #VANC #VANP For 7 days the likeliness of your domme to be in a good mood is higher
@SystemMessage #VANC #VANP Willingly donating gold to her sends a powerfull message about wanting to serve @Goto(EnterCode)
(b4) //Attonement
@SystemMessage #VANC #VANP You have @ShowVar[GNMGold] gold
@SystemMessage #VANC #VANP How much gold do you wish to buy for? @InputVar[BuyOff]
@Variable[BuyOff]<[100] @SystemMessage #VANC #VANP The chosen value is too small, choose at least 100 @Goto(b4)
@Variable[BuyOff]>[GNMGold] @SystemMessage #VANC #VANP You cant spend more gold than you have @Goto(b4)
@SystemMessage #VANC #VANP Making the purchase.. @ChangeVar[GNMGold]=[GNMGold]-[BuyOff]
@NullResponse @ChangeVar[BuyOff]=[BuyOff]/[2]
@NullResponse @ChangeVar[GNMPPoints]=[GNMPPoints]-[BuyOff]
@SystemMessage #VANC #VANP Payment complete! @Goto(EnterCode)
(b4h) //Attonement
@SystemMessage #VANC #VANP If you wish to have your punishment points reduced by paying gold
@SystemMessage #VANC #VANP This is possible
@SystemMessage #VANC #VANP The price is 2 gold per punishment point 
@SystemMessage #VANC #VANP You must at least spend a minimum of 100 gold @Goto(EnterCode)
(b5) //Unlock denial
@SystemMessage #VANC #VANP Unlocking denial settings @ChangeVar[GNMGold]=[GNMGold]-[2000]
@NullResponse @SetVar[Lock1Input]=[0]
@SystemMessage #VANC #VANP Transaction complete, denial settings unlocked @Goto(EnterCode)
(b5h) //Unlock denial
@SystemMessage #VANC #VANP If you have locked yourself from changing your denial settings
@SystemMessage #VANC #VANP And cant wait for them to unlock again
@SystemMessage #VANC #VANP You can pay 2000 gold to have them unlocked @Goto(EnterCode)
(c1) //Chastity pack 1-3
@NullResponse @CheckFlag(ChastityUpdate1)
@NullResponse @CheckFlag(ChastityUpdate2)
@SystemMessage #VANC #VANP Buying chastity pack 1 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChastityUpdate1)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(ChastityUpdate1)
@SystemMessage #VANC #VANP Buying chastity pack 2 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChastityUpdate2)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(ChastityUpdate2)
@SystemMessage #VANC #VANP Buying chastity pack 3 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChastityUpdate3)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(c1h) //Chastity pack 1-3
@SystemMessage #VANC #VANP Module pack unlocking features within your chastity modules
@SystemMessage #VANC #VANP You purchase pack 1 first, then 2 and finally 3
@SystemMessage #VANC #VANP The price per pack is 500 gold @Goto(EnterCode)
(c2) //Humiliation Pack
@NullResponse @CheckFlag(HumiliationUpdate1)
@NullResponse @CheckFlag(HumiliationUpdate2)
@SystemMessage #VANC #VANP Buying humiliation pack 1 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(HumiliationUpdate1)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(HumiliationUpdate1)
@SystemMessage #VANC #VANP Buying humiliation pack 2 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(HumiliationUpdate2)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(HumiliationUpdate2)
@SystemMessage #VANC #VANP Buying humiliation pack 3 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(HumiliationUpdate3)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(c2h) //Humiliation Pack
@SystemMessage #VANC #VANP Module pack unlocking features within your humiliation modules
@SystemMessage #VANC #VANP You purchase pack 1 first, then 2 and finally 3
@SystemMessage #VANC #VANP The price per pack is 500 gold @Goto(EnterCode)
(c3) //Pain Pack 1-3
@NullResponse @CheckFlag(PainUpdate1)
@NullResponse @CheckFlag(PainUpdate2)
@SystemMessage #VANC #VANP Buying pain pack 1 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(PainUpdate1)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(PainUpdate1)
@SystemMessage #VANC #VANP Buying pain pack 2 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(PainUpdate2)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(PainUpdate2)
@SystemMessage #VANC #VANP Buying pain pack 3 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(PainUpdate3)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(c3h) //Pain Pack 1-3
@SystemMessage #VANC #VANP Module pack unlocking features within your pain modules
@SystemMessage #VANC #VANP You purchase pack 1 first, then 2 and finally 3
@SystemMessage #VANC #VANP The price per pack is 500 gold @Goto(EnterCode)
(c4) //Slave Pack 1-3
@NullResponse @CheckFlag(SlaveUpdate1)
@NullResponse @CheckFlag(SlaveUpdate2)
@SystemMessage #VANC #VANP Buying slave training pack 1 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(SlaveUpdate1)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(SlaveUpdate1)
@SystemMessage #VANC #VANP Buying slave training pack 2 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(SlaveUpdate2)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(SlaveUpdate2)
@SystemMessage #VANC #VANP Buying slave training pack 3 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(SlaveUpdate3)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(c4h) //Slave Pack 1-3
@SystemMessage #VANC #VANP Module pack unlocking features within your slave training modules
@SystemMessage #VANC #VANP You purchase pack 1 first, then 2 and finally 3
@SystemMessage #VANC #VANP The price per pack is 500 gold @Goto(EnterCode)
(c5) //Tease Pack 1-3
@NullResponse @CheckFlag(TeaseUpdate1)
@NullResponse @CheckFlag(TeaseUpdate2)
@NullResponse @CheckFlag(TeaseUpdate3)
@SystemMessage #VANC #VANP Buying tease pack 1 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(TeaseUpdate1)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(TeaseUpdate1)
@SystemMessage #VANC #VANP Buying tease pack 2 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(TeaseUpdate2)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(TeaseUpdate2)
@SystemMessage #VANC #VANP Buying tease pack 3 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(TeaseUpdate3)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(TeaseUpdate3)
@SystemMessage #VANC #VANP Buying tease pack 4 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(TeaseUpdate4)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(c5h) //Tease Pack 1-3
@SystemMessage #VANC #VANP Module pack unlocking features within your Tease modules
@SystemMessage #VANC #VANP You purchase pack 1 first, then 2 and finally 3
@SystemMessage #VANC #VANP The price per pack is 500 gold @Goto(EnterCode)
(d1) //Lottery Ticket
@SystemMessage #VANC #VANP Buying lottery ticket @ChangeVar[GNMGold]=[GNMGold]-[50]
@DayOfWeek(Monday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[4]
@DayOfWeek(Tuesday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[3]
@DayOfWeek(Wednesday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[2]
@DayOfWeek(Thursday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[1]
@DayOfWeek(Friday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[7]
@DayOfWeek(Saturday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[6]
@DayOfWeek(Sunday) @NullResponse @SetDate(LotteryTicketTimer, 0 Days) @SetVar[LotteryTicketCount]=[5]
@SystemMessage #VANC #VANP Transaction Complete @SetVar[LotteryTicket]=[#Random(1,100)] @SetFlag(LotteryTicket)
@SystemMessage #VANC #VANP Your ticket has the number @ShowVar[LotteryTicket] @Goto(EnterCode)
(d1h) //Lottery Ticket
@SystemMessage #VANC #VANP Every friday a lottery number is picked
@SystemMessage #VANC #VANP If you have a winning ticket you earn a lot of gold
@SystemMessage #VANC #VANP The price for a ticket is 50 gold @Goto(EnterCode)
(e1) // Chore Pack 1-4
@NullResponse @CheckFlag(ChorePack1)
@NullResponse @CheckFlag(ChorePack2)
@NullResponse @CheckFlag(ChorePack3)
@SystemMessage #VANC #VANP Buying chore pack 1 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChorePack1)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(ChorePack1)
@SystemMessage #VANC #VANP Buying chore pack 2 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChorePack2)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(ChorePack2)
@SystemMessage #VANC #VANP Buying chore pack 3 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChorePack3)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(ChorePack3)
@SystemMessage #VANC #VANP Buying chore pack 4 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(ChorePack4)
@SystemMessage #VANC #VANP Transaction complete..  @Goto(EnterCode)
(e1h) // Chore Pack 1-4
@SystemMessage #VANC #VANP If you wish to expand your variety of chores
@SystemMessage #VANC #VANP You need to buy a chore pack
@SystemMessage #VANC #VANP Each pack unlocking several different chores 
@SystemMessage #VANC #VANP Also giving you additional ways of earning gold @Goto(EnterCode)
(f1) // Chastity game
@NullResponse @CallReturn(CR\BackgroundMode\shop\4-Endings.txt)
@NullResponse @Goto(EnterCode)
(f1h) // Chastity Game
@NullResponse @CallReturn(CR\BackgroundMode\shop\4-Endings.txt)
@NullResponse @Goto(EnterCode)
(g1) //spanking Implement 4-5 
@NullResponse @CheckFlag(BoughtSpankingImplement4)
@SystemMessage #VANC #VANP Buying spanking implement 4 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(BoughtSpankingImplement4)
@SystemMessage #VANC #VANP Transaction complete.. 
@SystemMessage #VANC #VANP What is the name of your fourth spanking implement? @InputVar[SpankingImplement4]
@SystemMessage #VANC #VANP Noted.. @Goto(EnterCode)
(BoughtSpankingImplement4)
@SystemMessage #VANC #VANP Buying spanking implement 5 @ChangeVar[GNMGold]=[GNMGold]-[500]
@NullResponse @SetFlag(BoughtSpankingImplement5)
@SystemMessage #VANC #VANP Transaction complete..
@SystemMessage #VANC #VANP What is the name of your fifth spanking implement? @InputVar[SpankingImplement5]
@SystemMessage #VANC #VANP Noted.. @Goto(EnterCode)
(g1h) //spanking Implement 4-5 
@SystemMessage #VANC #VANP If you're into spanking you might wish for a bit more variety
@SystemMessage #VANC #VANP By default you have 3 spankings implements
@SystemMessage #VANC #VANP But you can buy a fourth and fifth each costing 500 gold @Goto(EnterCode)
(g2) //SpankzChoir Subscribtion
@SystemMessage #VANC #VANP Buying subscribtion @ChangeVar[GNMGold]=[GNMGold]-[250]
@SystemMessage #VANC #VANP Transaction Complete @SetDate(SpankzChoirSubscribtion, 0 Days)
@NullResponse @Goto(EnterCode)
(g2h) //SpankzChoir Subscribtion
@SystemMessage #VANC #VANP SpankzChoir is a place where you can sell your ass for a spanking
@SystemMessage #VANC #VANP A 30 day subscribtion is 250 gold @Goto(EnterCode)
(h1)
@NullResponse @CheckFlag(Glitter1Bought)
@NullResponse @CheckFlag(Glitter2Bought)
@SystemMessage #VANC #VANP Buying glitter add-on 1 @ChangeVar[GNMGold]=[GNMGold]-[1500]
@NullResponse @SetFlag(Glitter1Bought)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(Glitter1Bought)
@SystemMessage #VANC #VANP Buying glitter add-on 2 @ChangeVar[GNMGold]=[GNMGold]-[1500]
@NullResponse @SetFlag(Glitter2Bought)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(Glitter2Bought)
@SystemMessage #VANC #VANP Buying glitter add-on 3 @ChangeVar[GNMGold]=[GNMGold]-[1500]
@NullResponse @SetFlag(Glitter3Bought)
@SystemMessage #VANC #VANP Transaction complete.. @Goto(EnterCode)
(h1h)
@SystemMessage #VANC #VANP If you want glitter to run module scripts you need to unlock it
@SystemMessage #VANC #VANP Unlocking glitter 1, 2 or 3 costs 1500 gold each @Goto(EnterCode)
(End)
@NullResponse @RapidCodeOff
@End
(Treasurechest)
200 gold
	+ Chance for a key
	+ Chance for merits
	+ Reduced PPoints
	+ Chance for orgasmpass
	+ Chance for adventure stuff
	+ 
(Service)
Attribute 500 and 1000 gold
MoodBoster 1000 gold / Week
Attonement 200 gold / 100 points
Unlock denial settings
(Modules)
New modules 1000 gold
Modules update pack 500 gold
Glitter x, 2500 gold
(Ends)
New end game 750 gold
(Punishments)
Toys: Spanking implement 4 & 5
Spankz choir subscribtion, 250 gold / month
SelfBondage scenario 1000 gold
New punishments: 500 gold
(Pictures)
Virtual assistant update 1000 gold
Miss A update
Chastity off on pictures
(Academy)
Closed
(Lottery)
Every friday a random number between 1 and 100 is chosen
If you have the correct number you get a prize
Prices: Orgasm, 2000 gold
Ticket price 50 gold
(Chores)
New chores chores 300 gold each
Adventure journal
	Encountering monters
	Encountering events